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f contents 


declarations 
LBRSGET_VM Allocate virtual memory 
LBRSFREE_VM Free virtual memory 


LBR 
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~SEP-1984 01:39: LBR.SRCIGETMEM.MAR; 1 (1) | 
TITLE GETMEM Allocate/deallocate virtual memory 
-IDENT ‘v04-000' 


; 
PAAR AAA ARERR A EATER AERA AAA KEAAAATEREAATAHKAKEReee eee eee eee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERM F SUCH htt AND wre Neh 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS Bit! 


] Y FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


T 
NOT SUPPLIED BY DIGITAL. 


**® ® 
**® ® 
*?® ® 
**® ® 
*?® *® 
**® & 
** ® 
** ® 
**® * 
;* TRANSFERRED. ? 
**® * 
** ® 
*® * 
** ® 
**® *® 
*® * 
*® ® 
i *® 
-* ® 
2@ *® 


; He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


LARRRBRAAAASASASLARASESALESERRERRRRE SESE RR SARE RRS RSE REE E RR RRR RASS RRR R RRR RSS SO 
++ 

FACILITY: Memory allocation routiens 

; ABSTRACT: ALLOCATE AND DEALLOCATE VIRTUAL BLOCK 


ENVIRONMENT: VAX Native mode | 
AUTHOR: K.D. MORSE, CREATION DATE: 25-APR-77 | 
MODIFIED BY: | 
X03.01 JwWT0056 Jim Teague 20-Sep-1982 | 
| 
| 
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Remove restrictions on amount of memory to allocate 
or deallocate. 

x01.01 001 _ B.L, SCHREIBER 9-FEB-1979 
Correct error in allocation routine. 

v01.02 008 B.L. SCHREIBER 26-0CT-1979 
Declare $CRFMSG 

v01.03 010 B.L. SCHREIBER 13-NOV-1979 
Word-relative references 

v01.04 ‘ B.L. SCHREIBER 15-NOV-1979 
Generalize into GETMEM. 
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-SBTTL declarations | 
: Declar macros 
Slibdef 


oooo 
polo lola) 


Declare run-time library error cod 
; EQUATED SYMBOLS: | 


4 
00 
3 
8 60 
0 61 
$3 
S444 6 ddr = 0 ; Offset to addr of next block 
0000004 00 64 blk$lUsize = 4 ; Offset to size of this block 
$? 8 8 65 mem$k_roundup = § ; Round allocation up to bytes | 
4 mem$k_memexp = 128 ; Number of pages to expand 
001000 it 67 mem$k_maxblk = mem$k genes * 512 ; Largest block that can be allocate 
Bat eR 64 000 68 mem$_Bikwthinbl = Lib$_badbloadr i; Block deallocated within deallocat 
0015826C 0000 9? mem$_illblksize = Lib$_badblosiz i; Illegal block size 
00000001 0000 QO mem$_success = 1 ; Success 
0000 71 
0000 MS H 
0000 73 ; Own storage: 
B33 
0000 08 6 -PSECT S$OWNS, NOPIC, USR, CON, REL, LCL, NOSHR, NOEXE, RD, WRT, NOVEC 
0000 78 mem$l_maxbLlk:: ; Size of expand region request 
00010000 0000 79 -long mem$k_maxblk ; (set up by lLbr$open) j 
9004 80 mem$l_memexp:: ; Number of pages in expand region r 
00000080 0004 81 -long mem$k_memexp ; (set up by Lbr$open) 
00000000 00000000 0008 Hf new$l_blks:: -LONG QO ; Addresses of expanded pages 
00000000 00000000 8818 o 
0018 85 -DEFAULT DISPLACEMENT, WORD ; Use word displacement 


| 

” 

mem$\"dynmem:: .LONG 0,0 : Listhead of dynamic memory | 
| 
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vb4~000 LBRSGET_VM Allocate virtual memory $781 984 81:49:61 LBR.SRCIGETMEM.MAR; 1 : 3) v04 
4 th -SBTTL LBRSGET_VM Allocate virtual memory : 
4 89 ; Functional description: : 
01 91 ; This routine allocates a block of dynamic aenerys The requested block | : 
01 5 ; size is rounded up to the nearest four bytes. An error condition is : 
01 95 ; returned if the block cannot be allocated. : 
0018 oe ; First fit algorithm is used. : 
: | ; 
01 96 ; Calling sequence: : 
0018 on: sats | 
BR! 98 ; BSBwW LBRSGET_VM 3 
01 99 ; F 
0018 100 ; Input parameters: 3 
0018 101; : 
0018 19 3 RO Address of longword containing number of bytes to allocate : 
Bh18 13? 3 R1 Address of longword to store allocated memory address 
0018 105 ; Completion codes: 
0018 106; 
0018 107 ; success: 
0018 108 ; ; r0 = contains a one 
0018 109 ; failure: ‘ 
0018 110; r0 - contains a zero 
0018 111; 
at 6 ; 30 
001 113 ; Side effects: 
0018 114 ; 
0018 115 ; The dynamic memory List is updated. More dynamic memory is acquired 
0018 116; if necessary 
0018 117; 
0018 118 ;-- 
0018 119 
0018 120 
0000808 \$] -PSECT $CODE$, NOPIC, USR, CON, REL, LCL, NOSHR, EXE, RD, NOWRT, NOVEC 
0000 15§ serf$alblk:: 
0000 124 ; moval -=-(sp),r1 ; set location to return result 
0000 125 ; bsbb Lbr$get_vm 3; get the memory. 
0000 126; popl ri 3; return result in rl 
0000 8127 ; rs 
0000 128 
0000 129 ;lnk$alloblk:: 
itt 130 lbr$get_vm:: 
ic }«6BB. Cé«QO 131 pusher #*M<r2, r3, r4> ; Save registers 
54 51 00 Bp OE 13 mov l river ; Save return result address 
53 50 07 C1 060 13 addl3 Bcnonth roundue~1> 079.73 ; Round up to the nearest 
53 07 CA 0009 134 bicl2 #<mem$k_roundup-1>,r ; Multiple of four bytes 
2E 14 O00C 135 betr 
OO00E 136 ; bleq ye 3; Check for size <= 0 
OOOE 137; capl r3,mem$l_maxblk ; Check size > maximum 
OOOE 138; bleq 4 f ; Branch on legal size | 
50 0015826C 8F 00 Bate 139 {os: mov #mem$_illblksize,r0 ; Report illegal block size | 
oo” -3y Onis 29 brb al_blK_exit ; Return | 
0017 142 ; Expand the program region | 
bOI? a3 3 Ot pites . | 
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Goa-b00 LBRSGET_VM Allocate virtual menory “SEP=-1984 1349564 LBR.SRCJGETMEM.MAR; 8 (3). v04 
17 164 208: SEXPREG_S mem$\_memexp,new$l_blks; Expand dynamic memor 
3F 50) OED 6 4 1$2 blbc = ~r0,al_blk_exif “ 3 Branch f it failed | 
: 4 193 : Now insert memory into List. 
51 02D 149 308:  movl newSl_blks,r1 ; Get address of new block 
50 0 § 150 movl mem$l—maxblk,r0 ; Get size of new block 
0 151 bsbb Lor$free_vm ; Go insert new blk in List 
44 , 13 : blbc r0,al_blk_exit ; Branch if failed to insert new blo) 
09 : 138 ; Search down List for first block >= size requested. 
0 CF oO9E $0 C 138 40s: movab mem$l_dynmem,r1 :; Get Listhead of dynamic memory 
5 51 DO 0041 £42157 50S: mov l ri, ; Set new previous Block 
5162 00 0044 158 movl —s- (r2), F'1 : Get address of free block 
gf 13. 0047 159 beql ; ; End of List, go espens memory | 
04 Al 5 Di 0049 #160 cmpl r3,blk$l_size(r1) ; Requested size > block size? 
F2 14 004D 161 botr 50$ : Yes, keep lookin 
10 13 Boe 16¢ beql 60$ ; Branch on same size 
8 193 : Take part of this block and Link the rest back into the List. 
04 a1 53 C2 0051 166° subl2 r3,blk$l_size(r1) ; Subtract off requested size | 
08 04 A1 01 0055 167 cmol blLk$l_size(r1) 48 ; Did we allocate the nye wo. 
06 15 0059 168 bleq 608 ; If so, go pretend it's a good fit.. 
005B 169 ; This can float at most 4 bytes. 
51 04 A1 CO 0058 #=170 addl2 = bLk$l_size(r1),r1 ; Get address of requested block 
05 11 44 4. brb 70$ ; Return 
Boe, 178 : Block was perfect fit. delete it from the List. | 
62 61 00 0061 175 60s: mov blLk$l_addr(r1),blk$l_addr(r2)  ; Set pointer to next block 
61 7C 0064 176 clrq blLk$l_addr(r1) ; Clean up the block 
50 01 DO 0066 £177 70$: mov l #mem$_success,r0 ; Set success status code 
64 51 D0 0069 £178 movl r1,(r4) ; Return address to caller 
006C 179 al_blk_exit: 
1¢ BA Q06C 180 popr #*m<r2, 73, r4> 
05 O06€ 181 rs 
——_-—_—---- a - se aaa ~~ -— epee 
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-SBTTL LBRSFREE_VM Free virtual memory 
Functional description: 
This routine deallocates a block of memory and inserts it into a dynamic 
Memory list. The block is zeroed and its size is rounded up to the 
Nearest four artes. If it is adjacent to another block, the two blocks 
are compacted into one. 
Calling sequence: 

BSBW = LBRSFREE_VM 


Input parameters: 


Llo 
Fre 
183 
184 
5 
189 
188 
189 
190 
iH 
198 
194 
195 
38 
OO6F 198 RO Address of longword containing size of block to deallocate 
Beer +44 R1 Address of longword containing address of block to deallocat 
O06F 201 Completion codes: 
OO06F 8 
OO06F 20 success: 
O06F Soe : r0 - contains a one 
006F 05 failure: | 
OO6F soe r0 = contains a zero 
O06F 07 ; 
O06F 08 ; Side effects: 
O06F 09 
006F 10 NONE 
OO6F 211 
O06F $i ae 
OO6F 1 
O06F 14 
O06F 15 serf$dealblk:: 
OO6F 216 ;lnk$dealblk:: 
006F 217 lbr$tree_vm:: 
1c BB OQO6F 218 pushr #*m<r2, 73, r4> 
53 50 O07 =((¢1 #OO71 #219 add\3  #<mem$k_roundup-1>,r0,r3 ; Round up to the nearest 
535 07 CA 0075 220 108: bicl2 #<mem$k_roundup-1>,r3 ; Multiple of four bytes 
OA 14 0078 221 bgtr 30$ 
QO7A $56 ; bleq ; Check for size <= 0 
007A 23 ; cmpl r3,mem$l_maxblk : Check size > maximum 
OO7A $e : bleq f ; Branch on legal size 
50 0015826C 8F DO OO7A 5 20S: movl #mem$_illblksize,r0 ; Report illegal block size 
006 31 8 1 $$ brw deal Blk_exit ; Return : 
50 OO10°CF 9E 0084 30$: movab mem$T_dynmem,r0 ; Get Listhead of dynamic memory 
61 7C 0089 8 clrq (r1) ; Clear block info long words 
it ee Bene Boe 3 addi3—s rl,r3,r4 ; Get address following new block 
O08 1; Search down List for insertion point. 
52. 50 00 Q08F 33 40s: mov r0,r2 ; . contains prev block 
50 660 rf 343 34 mov (r6),r0 ; RO contains next block addr 
§? 1 09 5 beqlu 60% ; Branch on end of List 
50 1 D1 0097 $ cmpl ri,r0 ; Is new addr > next addr 
FS OA Baer 3 bgtru 40$ : Yes, keep looking 
bo9E 9 ; Found insertion point. 
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LBRSFREE_VM Free virtual memory -SEP=1984 01:39:01 LBR.SRCIGETMEM.MAR; 1 
9C 40 ; r2 = addr of previous block 
9C 41; ri = addr of new block 
35 ts 3 r0 = addr of next block 
62 5} DO 009C 244 ° mov r} sblkSt_addr(r2) : Point prev to new 
4 D1 QO9F 45 cmpl r4,r ; Is new adjacent to next? 
é 13 O0A2 46 beqlu 308 : Yes, branch to compact 
1A QO0A4 4 bgtru 0$ ; Error, within bloc 
61 ° DO O0A6 48 movl r0,bLk$l_addr(r1) 3; No, point new to next 
04 Al DO QOA9 44 mov r3,bLk$l_size(r1) ; Set size of new block 
14 #11 m4 9 brb 70$ ; Go check adjacent to prev 
ne 50 : Compact with next block. 
04 Al 04 A0 53 #4291 OOAF 54 50s: addl3) = r 3, bLkSL_size(r0),bLk$l_size(r1) ; Set size = new+tnext | 
61 60 00 0085 55 mov blLk$l_addr(r0),blk$l_addr(r1)  ; Set next pointer 
60 7C 0088 56 clrq (r0) ; Clear old next block 
07 ~«#611 Boer 2 brb 70$ : Go check for compaction | 
Seer 23 : Set up new block on end of List. 
62 51 00 O0OBC 261 60$: movi ri,blk$l_addr(r2) : Point prev to new 
04 Al 53 00 Boek $08 mov l r3,bik$l-size(r1) ; Set new block size 
4 rt: : Check for compact with previous block. 
>» ae Bw ita 66 70S: addl3) ss r2, bLkKSL_size(r2),r4 ; Get end of prev block 
51 54 Di 00C8 67 cmpl r4,r1 ; Is new adjacent to prev? 
OF 1A 00¢B 268 bgtru 80$ ; Error, block within prev 
1 12 Bpee $65 bnequ 908 ; No, not adjacent 
Boer $f) : Compact with previous block. 
04 A2 04 A1 CO OOCF $58 ; addl2 ss bLk$lL_size(r1),blLk$l_size(r2)  ; Prev size = new+tprev 
61 DO 00D4 sie mov l blLk$l_addr(r1),blk$l_addr(r2) ; Set up next pntr , 
61 7C 00D7 75 clrq (rl) ; Clear new block pntr & size 
09 = =«171 3908 $76 brb 0$ 3; Branch to exit | 
0008 a8 : Error, block within block. | 
50 00158264 8F DO 00DB 280 Sos: movl #mem$_blkwthinbl,r0 ; Report block within block 
03 11 OOE2 281 brb deal _Blk_exit ; Return 
50 01 DO O0E4 a6 90S: mov l #mem$_success,r0 ; Set success status code 
Ooe7 8 deal_blk_exit: 
1C BA OQO0E7 4 popr #*m<r2, 73, r4> 
ea 
OOEA 287 .end 
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Symbol table -SEP-1984 01: 1 CLBR.SRCIGETMEM.MAR; 1 


$$T1 = 00000000 
AL_BLK_EXIT +3 & 03 
BLRSL_ADOR s : 
BLKSL_SIZE = 00000004 
L_BLK_EXIT BERS 7R 0 
LBRSFREE- VM 0 F RG 0 
LBRSGET 0M 00 0 RG 0 
ties _BADBLOADR = 00158264 
L18$~ at te = 0015826C 
MEMSR_MAXBLK = 0001 
MEMSK_MEMEXP = 0000008 
MEMSK_ROUNDUP = 44 0 
MEMSL_DY 009010 RG 0 
MEMSL_MAXBLK 00000000 0 
MEMSL_MEMEXP 44st 94 RG 0 
MEMS _BLKWTHINBL= 001 ; 64 
MEMS _ILLBLKSIZE= 0015826C 
UCCESS = 00000001 
NEWSC _BLKS 00000008 RG Oe 
SYSSERPREG eeeeeere GX 0 
$n ew nme ree mem ae + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
S 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL on te NOEXE NORD ~_— NOVEC BYTE 
SABSS 00000000 ( 0.) O1 ¢ ) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
SOWNS 00000018 ( ra 0 ( ¢ ) NOPIC USR CON REL LCL NOSHR NOEXE RD T NOVEC BYTE 
SCODES QOOOOODEA ( 234.) O35 ¢ ) C USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
terme mower mem wenn nnoraoves + 
. : Performance indicators ! 
ition 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.08 00:00:00.68 
Command processing 100 00:00:00.45 00:00:01.98 
Pass 1 139 00:00:01.95 00:00:05.79 
ee table sort 0 00:00:00.10 00:00:00.15 
. ~X, er ie “ 00:00:00.68 es 
m able outpu :00:00. :00:00. 
Peect synopsis euteut 1 00:00:00:08 §0:90:00:08 
Cross-reference output 8 00:00: 9-09 00:00:00.00 
Assembler run totals 34 00:00:03. 00:00:10.05 


ihe working set Limit was 900 pages. 

9952 bytes (20 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 105 non-local and 16 local symbols. 
287 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 
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GE TMEM 
VAX=-11 Macro Run Statistics 


Feweroeeeeseeeeecooseceseeeeces} 


! Macro Library Statistics ; 


Remmesdiaenemenaesibenmesenen eeecee 


Macro Library name Macros defined 
“$255SDUA2B:[SYSLIBISTARLET.MLB; 2 ome tar Be 
263 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:GETMEM/OBJ=0BJ$:GETMEM MSRC$:GETMEM/UPDATE=(ENHS:GETMEM) 


VAX/VMS Macro v04-00 
CLBR.SRCIGETMEM.MAR; 1 
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